home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / construc / UNIT1.DFM / UNIT1.txt
Encoding:
Text File  |  1997-07-29  |  1.2 KB  |  53 lines
  1. object WebModule1: TWebModule1
  2.   Actions = <
  3.     item
  4.       Name = 'WebActionItem1'
  5.       OnAction = WebModule1WebActionItem1Action
  6.     end
  7.     item
  8.       Name = 'WebActionItem2'
  9.       PathInfo = '/query'
  10.       OnAction = WebModule1WebActionItem2Action
  11.     end>
  12.   Left = 267
  13.   Top = 110
  14.   Height = 231
  15.   Width = 277
  16.   object QueryTableProducer1: TQueryTableProducer
  17.     MaxRows = 2
  18.     Query = Query1
  19.     Left = 48
  20.     Top = 12
  21.   end
  22.   object Query1: TQuery
  23.     Active = True
  24.     DatabaseName = 'DBDEMOS'
  25.     SQL.Strings = (
  26.       'SELECT * FROM BIOLIFE '
  27.       'WHERE (BIOLIFE."Length (cm)" > :LENGTH)')
  28.     Params.Data = {01000100064C454E47544800030400000000000000}
  29.     Left = 128
  30.     Top = 44
  31.   end
  32.   object PageProducer1: TPageProducer
  33.     HTMLDoc.Strings = (
  34.       
  35.         '<FORM ACTION="http://www.bolesian.nl/cgi_bin/biolife.exe/query" ' +
  36.         'METHOD="POST">'
  37.       '<INPUT TYPE=HIDDEN NAME="KEY" VALUE="<#KEY>">'
  38.       '<INPUT TYPE=HIDDEN NAME="LENGTH" VALUE="<#LENGTH>">'
  39.       '<P>'
  40.       '<INPUT TYPE=SUBMIT VALUE="Show next two records">'
  41.       '</FORM>')
  42.     OnHTMLTag = PageProducer1HTMLTag
  43.     Left = 48
  44.     Top = 86
  45.   end
  46.   object DataSetTableProducer1: TDataSetTableProducer
  47.     MaxRows = 2
  48.     DataSet = Query1
  49.     Left = 128
  50.     Top = 112
  51.   end
  52. end
  53.